﻿Public Class Profesores
    Dim ocdProfesores As New CapaDatos.Profesores()



    Public Function obtenerProfesor() As DataSet
        Return ocdProfesores.ObtenerProfesor()
    End Function

    Public Sub InsertarProfesor(ByVal dniAlumno As String _
             , ByVal Nombre As String, ByVal FechaNac As DateTime _
             , ByVal email As String _
             , ByVal domicilio As String _
             , ByVal estadoCivil As String)
        ocdProfesores.InsertarProfesor(dniAlumno, Nombre _
                                           , FechaNac, email _
                                           , domicilio, estadoCivil)

    End Sub
End Class
